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aaaaaa 
qaaaaaaqa 
aaa aaa 
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aaa aaa 
aaaaaaadaacdadcdaaaaaaaaaa 
aaaadncaadaadaadaaaaaaaaaa 
oaaqa00000000000000000 
VvouvU VovU 
VU VOU 
Vou Vov 
VOU VYY 
VU Vvv 
VOY VYVY 
Vuuv YVVYV 
VVLv VVvv 
VOU VUYU 
VVUvV VOY 
VOU wWvuv 
VVYU VVeuv 
VYVYVOVYVYVYVVYVYVUYVYVOVYU 
VVOEVVYVEVOEYVYVEVYVYVOLY 
VEO YVYVVEUOUVELUY 
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MM Mnwn Mnwn 
NM NM NM 
MMM Mn WnMn 
MM NYM ANNAN 
Mn WMMwn Munn 
MMM nn Mn 
NNN NAN NNN 
Mn NM AMM 
ANNNNMNM NNN 
ANNNNMNYM NNWM 
ANNMNMNMYN ANN 
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DDDDDDDD DDDDDDDD UU UU NN NN III111 TTTTTTITTT 
AAAAAA DDDDDDDD DDDDDDDD UU UU NN NN HII TTTTTTTTTT 
AA AA DD DD DD DD UU UU NN NN II TT 
AA AA 0D DD DD DD UU UU NN N I] TT C 
AA AA DD DD DD DD UU UU NNNN NN II TT uc 
AA AA DD DD ODD DD UU UU NNNN N II TT uc 
AA AA 0D DD DD DD UU UU NN NN NN II TT 
AA AA 0D DD DD DD UU UU NN NN NN Il TT UQE 
AAAAAAAAAA DD DD DD DD UU UU NN II TT 
AAAAAAAAAA § DD DD DD DD UU UU NN NNNN II TT UQe 
AA AA DD DD DD DD UU UU NN II TT ye UQE 
AA AA 0D DD DD DD UU UU NN NN II TT redote UQE 
AA AA DDDDDDDD DDDDDDDD UUUUUUUUUU «NN NN IIIIII TT adie UQeE 
AA AA DDDDDDDD DDDDDDDD UUUUUUUUUU «NN NN III TT eaue van 
UQe 
uae 
ju III111 SSSSSSSS Uae 
LL eeeee SSSSSSSS UQe 
LL II ss UQB 
LL I] Ss UQB 
LL I] ss UQe 
LL I] Ss UQé 
LL II SSSSSS uae 
LL II SSSSSS UQe 
LL II Ss UQE 
LL I] SS UQE 
LL II Ss UQE 
LL 11 ss UQE 
LLLLLLLLLL eeeee SSSSSSSS UQE 
LLLLLLLLLLE eeeeel SSSSSSSS oo 
UQE 
UQE 
UQE 
UQE 
UQE 
UQE 
UQE 
UQE 
UQE 
UQE 
UQE 
UQE 
UQE 
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1 TITLE ADDUNIT - MSCP Library Routine for SET/SERVED 
: IDENT 

: ITISIIIIIIILITI ITT Titi titi iii iii iiiiiii iii iitiiiiiiitiiiiiitit) 
3* 2 
6 :* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® 
* DIGITAL FQuIPRENT Co CORPORATION, MAYNARD, MASSACHUSETTS. . 
i* ALL RIGHTS e 
: * 
10 :* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
11 :* ONLY IN ACCORDANCE WITH THE TE Ras OF SUCH LICENSE AND WITH THE * 
I '® INCLUSION OF THE ABOV & COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
13 :* COPIES TH HEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
00 14 :* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
00 13 i TRANSFERRED. * 
P ® 
000 i3 [* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 18 :* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
9000 19 :* CORPORATION. ° 
0000 1 :® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 j t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. « 
0000 ie * 
0000 4 i . 
0000 5 s MeRRRRBAAASBALAAAALALALALALARE EAR ERE RARE RELEASES ERA A RRR E EERE RRR RRR RRR SRA RARE SG GS 

0000 6: 
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yo 000 PROGRAM DESCRIPTION * ~SEP-1984 t 93: $4 ‘9 MSCP.SRCJADDUNIT.MAR; 1 ee d) Tat 
§ vs .SBTTL PROGRAM DESCRIPTION 
6 ; FACILITY 
: ; MSCP Server 
4 : ABSTRACT 
0 § : This module is called from the SET utility to implement the 
4 ; SET/SERVED command. It handles the interface to the MSCP Server. 
a0 33 ; ENVIRONMENT 
00 41: NATIVE MODE, KERNEL MODE 
000 4g : 
000 45; AUTHOR 
$608 rf : Kerbey T. Alt 24-Mar-1984 
Py eroe e mann, -Mar@- 
0000 rk 3 . 
0000 47 ; MODIFIED BY 
0000 48 ; 
4444 49 ; v03-004 DASO001 David Solomon 09-Jul-1984 
464 20 3 Make MSCPSCODE psect read-only. 
0000 52 : v03-003 Epa Kerbey T. Altmann 22-May-1984 
i464 27 : ix a bug in KTA3126. 
$090 55 : V03-002 KTA3126 erbey T. Altmann 23-Apr-1984 
464 2$ : Fix problem with” the D device. 
0000 «s«58:: V03-001 NPK3051 Krone qnerg 17-Apr-1984 
0000 59 ; Change SS$_ INDEVNAM to SS$_IVDEVNAM. 
0000 60 ; 
0000 61 :-- 
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; .SBTTL DECLARATIONS 
2 
§ ; SYMBOL DEF INTIONS 
§ nocross 
° $CDDBDEF 
SOCDEF 
; SODBDEF 
SDEVDEF 
4 sly He 
5 IPLDEF 
i: SMSCPDEF 
7 SPRDEF 
28 SSSDEF 
7 SUCBDEF 
0 SVCBDEF 
: : MSCPDEF.MLB 
4 SHOBDEF 
5 SMSUDEF 
$ SUQBDEF 
cross 


po 


vou~000 


58 ennneaadl ~" 
50 0084 8F 


00000004 
00000008 
0000000C 


ODOOQOOOooooooooooo: 


Ss SOOooooooooooo 
oO 


OOoOooooooooooS: 
Pat ptt oo $84 
DWDWUNMROOCOCSCSOS 


SOOOCOCOoOoCoCooooooooooooooosco 
tt ad ed 


SOommPro food our— 


PPPS PWIMMIWIWIWIWIMIUIDINIDININININININININ 2 2 OS | SM QOOODOOOOCOOOOOOOOOOOOR 


MERI OS ODNAUNE WIN $9 OO NAUE WN SO OO NAUE WN 9 OD NAME WIN 0 OONAOUE W000 


— at ss ts Sd = ss — — — —) — 4 SS — — —) —) —) — 4 — 9 — 9 —s 2s 2s ts ss ss — —) — 9 4s a _ 
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tin SEP=19 


-SBTTL MSCPSADDUNIT Routine 


MSCP.SRCJADDUNIT.MAR; 1 


+ 
+ 


Functional description: 


This routine implements the functions needed by the SET DEVICE/SERVED 
DCL command. It receives an argument from SET, validates it, allocates 
and fills in the proper unit control block for the MSCP server. 


Calling sequence: 
KERNEL MODE, IPL = 2 


10 database locked for write access 
CALLS #3,G*MSCPSADDUNIT 


Se Ge Ge Ge Ge Ge Ge Su Ge Ge Se Ge Ge Ge Ge Sete 


Inputs: 
UCBADDR = 4 ; Address of the device's UCB 
OPTIONS = 8 : Option flags (1 = /NOWRITE) 
; CONTROL = 12 ; Controller letter, if present 
: Outputs: 
: RO = Status 
: SS$_NORMAL = Success 
s SS$_DEVACTIVE = Unit is already served 
: SS$_DEVOFFLINE = MSCP server code not loaded 
: SSS_INSMFEM = Insuffient memory to allocate control blocks 
: SS$_DEVICEFULL - No space in MSCP server tables to add unit 
: SS$_IVDEVNAM = CONTROL letter is not A-G 


~PSECT MSCPSCODE,LONG ,NOWRT 
-ENTRY MSCPSADDUNIT ,“M<R2,R3,R4,R5,R6,R7,R8,R9,R10> 


type | 
A normal DIGITAL device 
Put in range of 0-n 
Set correct mscp type 


MOVL @#SCSSGL_MSCP,R8 ; Pick up pointer to MSCP process 
BLSS ; Valid system VA 
st aa #SS$_DEVOFFLINE,RO ; Nothing there, error 
108: MOVL UCBADDR (AP) ,R5 ; Transfer UCB address 
MOVZWL UCBSW_UNIT (RS) ,R7 > Pick up unit number 
CLRL R 3; Initialize 
MOVW #MSCPSM_UF_REPLC nig ; Default unit flags 
MOVB B$B_DEVTYPE(R5S ,R ; Pick up device 


#DTS_FD1,R3 
ADDW3 « #<MSTPSK"EMS_FD1- 
aMSCP$V~EU_SUBC>,R3,RO 


; Join common code 


Set device type 
OR in unit number 


20$: ASHL #16 


R3,R9 
7,R9 
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vO4-000 mSCPSAD 


br 
NI 


P Li 
ADDU 
51 _0224'CF43 Ah. MOVAL W*“DEVTBLCR3I,R1 ; Pick up entry in table 
5A 05 Al 83 123 MOVZWL yRTD BLF ; _and unit X98 
5061 41 148 CVTWL (RI) .RO : Pick up part of emulated unit 
a te 133 BCEQ 0$ : Nothing special 
46 151 ; Unit is a DSA disk. Now find out the controller model in order to 
4 1 : form the correct unit number. 
04 1 
52 00BC 3 0 046 154 MOVL FESt..CODBIRS) Re :; Pick up pointer to Class Driver 
. % 38 132 BEQL $ 3; None, treat as normal 
52 264A 9A oo 7 § MOVZBL CDDBSB_CNTRLMDL(R2),R2 ; Get the controller model byte 
01 3 33 be) 13f Hala Gs gAASCPSK_CA_HSC 0 3 Is it HSC50? 
; No 
50 0200 8F 3¢ 056 159 MOVZWL #MSCPSK_EMD_HSC- 3; Yes, make it HSC disk 
0058 160 aMSCP$0_EU_CTYPE,RO 
| oe Bp28 19) BRB 50$ : Continue 
04 3s 4 Boab 188 30S: a e giMSCPSK.CA_EMULA 3 it an emulated disk? 
3 No 
50 0500 8F 3C 0069 165 MOVZWL #MSCPSK_EMD_EMUL- :; Yes, make it emulated disk 
006 166 aMSCP$0_EU_CTYPE,RO 
05 «(11 ag 19 BRB 50$ 3 Continue 
50 0100 8F 3C 0069 169 40$: MOVZWL #MSCPSK_EMD_UDA- 
QO06E 170 aMSCP$V_EU_CTYPE,RO 3; Make it UDA disk , 
57 50 <A8 QO06€ £171 50S: BISWw2 RO,R 3 Set in part of emulated unit 
53 OC AC 9A 0071 \7¢ MOVZBL CONTROL(AP) ,R3 ; Get special controller 
08 12 0075 17 BNEQ 70$ : User supplied something 
53 28 AS 00 0077 174 60S: MOVL UCBS$L_DDB(R5) ,R3 3; Point to DDb 
53. 17 AS (GA «(0078175 MOVZBL DDBST_NAME+3(R3) ,R3 ; Pick up controller 
53 40 gf 82 O07F 178 70$: SUBB2 #*X40,R3 3 Make ‘‘A''-->1 
07 3 91 0083 «17 CMPB R3 : Is it in range ‘‘A-G"" 
1B 0086 178 BLEQU : Yes, all is okay 
50 0144 8F 3C 0088 179 MOVZWL #SS$_IVDEVNAM,RO 3; No, error out 
OF OBE 181 as 
59 08 O 53 «£0 9433 136 80$: INSV R3,#8,#8,R9 : Insert controller designator 
53 5 0¢ 78 009 18 ASHL  #MSCP$V_EU_DESIG,R3.R3 ; Shift into position 
+6] |S C8 0097 184 BISL oR7 : Complete unit number 
56 57 04 OO EF 4 13 EXTZV #0,#MSUSK_UNIT_SIZ,R7,R6; Slot index 
OO9F 189 : ADD a disk unit - first search the unit table in MSCP using a hashing 
OO9F 188; algorithm. If a entry is found, check for unit number match. If 
4 +34 : there is a match, we have an error. If not, continue to look for 
3 an empty slot. ere are none, error out wi u us. 
oer 130 ty slot. [f th t with a full status 
O9F 136 3 R5 ==> UCB 
O9F 193; R6 = Slot # 
O9F 194; R7 = Unit @ 
O9F 195; R8 --> MSCP server 
O9F 136 3 R9 = Possible unit id 
44 13 ; R10 = Device unit flags 
OF 198 SEARCHTABLE : 
OF 89 SETIPL B8*60$ ; Synch access | 
52 0090 (846 09 A 1 MOVL MSUSL_UNIT_VEC (RB) LR6],R2 ; Look for unit block in slot 
3% 1 A 02 BEQL 308 ; Empty 


st 


28 A2 4 


56 
52 0090 (846 
28 A2 


56 
52 0090 C8 
28 A2 


50 0850 


50 96024 


—> 

oOo 
—C —COMmMmImnou— fun f— 
MF OVNOOOMAIDAS "IOC OO 


51 9C BF 
00000000 ° GF 
09 50 

56 §=60124 BF 


3C AS 00000081 8F 
Oc A201 


OE A2 
0090 (846 §=52 


00000008 


04 

54 52 

82 54 

B82 54 

8251 

82 60 8F 

82 01 

82 04 

82 0101 8F 56 
82 5A 


SCOOSoOCOCoCoOOoOooCOoOooOOoOOoOoOoOOOoOOOOoOooOOo 


wooV7g 


or @>P 
ou om & ocoo 
SOOOOOOOOSOSOOOCOCCSOCOSOOCOSOSOSSSoSoSoOoSooOSoSoOooOOoOOOOOOOOSoOOOSoOO 


POPP IPIMIPIPIPIPIPINYPIPYNINININIPPIPIPIPINIPINIPINIPYPIPOPIPUNIPIPIPUNIPUPIPUNINPYNY 


ss 4s a =) a —s 2 4 8 


CMPW R7 ,UQBSW_UNIT(R2) 
ADDL #MSUSK _MAX_UNIT 


UQBSW_UNIT(R2) : 
MOVL #<2*MSUSK _MAX_UNIT>=1 


ASSUME posse ROsT_ CNT EQ 12 
GW rf 


MOVL oh L_ONIT~ “VEE CRBS R62, ab 


R6: 
10$: MOVL a _UNIT_VEC(R8) CR6 j,Re 


MNE 

MOVW anger « 51 LAVLBL, (R2)+ 

ASSUME uaes wl riorst T™” UNT ea UQB$B_HOST_CNT 
MULW3 ; 

MOV RRO : 
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MSCP.SRCJADDUNIT.MAR; 1 
ort is it a match? 


tes 
7 for second probe 
i = for unit block in slot 


mp 
Hit, "1 it a match? 
Yes 


goreey search 
up unit 


; Set initial HOST_CNT, AVL 
: ett STATUS to AVAILABLE 


Set unit 
Set unit flags 


3 
4 
i 
9 
10 
1} 
18 CMP UQB$W_UNIT(R2) : Hite. is it a match? 
14 BEQL 508 : Yes 
15 DECL R6 ; Loop thru 
16 CMPL R6 ,#MSUSK_MAX_UNIT 3; Reached end? 
17 BGEQ 3; No, ar for tid probe 
18 MOVZWL #SS$_DEVICEFULL,RO ; Yes, table is ful 
3 BRB 40$ 
A 208: MOVZWL #SSS$_DEVACTIVE,RO ; ERROR = existing device with unit 
¢ ’ BRB 40$ 3; Clean up 
34 : Found an empty slot. Allocate the UQB and fill it in. 
26 $0$:  MOVZBL #UQBS$C_LEN,R : Set size 
sf JSB BEE RESAL DNONPAGED ; Grab some pool 
8 BLBS s 3 ALL okay 
99 MOVZWL #SS$_INSFMEM,RO : Sho error 
0 40S: SETIPL #IPLS_ASTDEL : Lower IPL 
) RET 3; and out 
3 50$: BISL #<DEVSM_CLU!- 3; Set the ‘Avail CLUster Deal bit 
34 DEVSM_SRV>,- : and ‘'MSCP SERVER’ bit 
35 UCBSL BEVCHAR2(RS) 
36 MNEGW #1,UQBSB_HOST_CNT(R2) =; Show no hosts 
37 MOVW #MSCPSK_ST_OFFLN,- 3; Set STATUS to OFFLINE 
38 apsw STATUS(R25 
39 MOVL R2,MSUSL_UNIT -VEC(R8)CR6); Stick this UQB in MSCP table 
40 SETIPL #IPLS$_ASTDEL ~ Lower IPL to ASTDEL 
$i BRB FILLUGB : Skip around the data 
“§ 60$: -LONG IPL$_SCS : End of locked code 
a2 : Now fill in the newly allocated UQB 
13 FILLUQB: 
48 MOVL R2,R4 
49 MOVL R4,(R2)+ 3; Set shadow que 
50 MOVL Ra, CR d+ ; Ditto 
51 MOVW R1, 3; Set size field 
26 MOVZBW BDINSC SCS, ( R2)+ ; Set type 
54 
:? 
2 
58 
59 
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rein MSCPSADDUNIT hou tine -SEP-1984 4 88: 8% 0} MSCP.SRCJADDUNIT.MAR; 1 27 
se 9 ; Check on the write protection status 
19 €1 013C 262° BBC #OEVS 
05 38 AS 13€ 86 UCBs “DEVEHAR(RS) 10$ ; Jump if not writelocked 
OD €E2 0141 64 BBSS #MSCPSO_UF _WRTPH, 
0 a3 A2 143 65 ( : Set the bit 
05 08 AC E9 0146 66 10$:  BLBC OPT IONSCAP) 20s : feck” for /NOWRITE 
0 E2 14A 6 BBSS #MSCPSV_ hg” RTPS,- 
00 FE A pret 68 mh ail 0$ : Set the bit 
8 D4 pie $3 20$: CLRL (R2) ; Clear ovt reserved 
813) g] 3; Set the unit id 
0151 rg ASSUME ips -UNIT_ID EQ UQBSW_MULT_UNT+8 
82 D4 0151 74 CLRL if Re}s jon low 32 bits of unit id 
82 59 DO 0153 $f? MOVL bits 
FF A2 04 90 0136 id: MOVE FASCPSK CL_D146,-1(R2) t Set MSCP class code 
8134 78 3; Set the media id & unit/slot numbers 
015A 280 ASSUME UQBS$L_MEDIA_ID EQ 32 
O15SA 281 ASSUME UQB$L_M MEDIA “1D EQ UQB$O_UNIT_ID+8 
82 008 cS DO OSA $e MOVL UCBSL_ “MEDIA_ID(R5), (R2)#; Transfer it 
82 D4 O15F 8 CLRL (R ; Clear SHDW 
0161 284 ASSUME vassw UNIT EQ UQBSW_ SHDW_. STS+2 
82 57 B60 0161 285 MOVW R7,(R2)+ 3 Set in unit number 
82 56 8680 3166 seg MOVW R6, (R5}e ; Set in slot number + clear byte 
3h e4 4 3; Set the volume serial number 
0167 290 ASSUME UQBSL_VOL_SER EQ UQBSW_ SHDW UNT+8 
50 34 AS 00 0167 91 MOVL CBS$L_VCBTRS) ,RO : tc k up pointer to VCB 
06 13 0168 38 BEQL one, set up fake 
62 64 A0 DO 016d 9 MOVL VCBSL_SERIALNUM(RO), (R2); Ser the serial 
07 12 «=O171 94 BNEQ $ ; ALL okay 
62 00001234 8F 00 0173 95 30$: MOVL #*°xX1234, ( Set a fake one 
18 AS «6820 SiO sOO17A.—Ss« 296 40S: = MOVE (92), 6889, UNIT_ID(R4) Copy” to unit id field 
O17E 297 ASSUME UOBSL B £0 UaBSL_VOL_S sins 
82 55 D0 OI7E 98 MOVL Pp £ St tore UCB away 
0181 299 ASSUME bagst “HOST_ONLN EQ UQBSL- “uCB+4 
82 D4 bias 89 CLRL ; Clear HOST_ONLN 
gis ¢ 3; Set name if present 
Ht 0g ASSUME UQBST_NAME EQ UQBSL_HOST_ONLN N+4 
06 6C 91 O1 5 CMPB (AP) 4 ; Check for optional paramters 
$¢ 1F 136 5] BLSSU 60% ; Not present 
A BB 0188 0 PUSHR #*M<R1,R3,R4,R5> ; Present, save registers 
50 10 AC g0 18A 08 MOVL 16(AP) ,RO 33 moot descriptor 
51 $0 C 018— 309 MOVZWL (RO) ate : 
OF 51 DI 0191 310 CMPL ~—soR1,#15 : Maximize with 15 
03 15 0194 311 BLEQ 50$ 
51 F 4 138 \¢ MOVL #15.R1 
8 1 19 13 50$:  MOVB  R1,(R2)¢ 
62 OF 20 04 8 ae 4 14 MOVCS R1,84(RO),#32,415,(R2) ; Copy device name 
3 DO OIA 15 MOVL R3,R2 3; Set pointer to end of name 
3A BA 01A6 16 POPR #*A<R1,R3,R4,R5> ; Restore registers 


———$ $$$ — —4 
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MSCP.SRCJADDUNIT.MAR; 1 (1) vO. 
05 =(11 1s 18 BRB 70$ | 
; Show noname 
1AA 19 60S: CLRL (R2) ; $ 
52 $6 CO OAC 9 . ADDL #16,R2 3; Skip text 
1At § : Set maximum block/start if present 
AF . 
is ae TAF s 70S: ASSUME VOBSL , MAXBLOCK EQ UQBST -NANE +16 ies opt tonal 2 hatte. 
: n 
Ag b1Be 5 BOVE (AP) ,RO : Fas aa cosine extend 
on 8 188 Bedt os - + None use defaults 
98 0 Biba § Bove RO, (R2)+ 3; Use specified ao max 
es Hi 50 18D 0 MOVL alee came 3; Ditto for star 
- 07 11 1C1 1 BRB 
if full disk 
82 00B0 &3 4 O13 § 80$: tty UCcBst MAXBLOCK(RS), os tart at zero 
T_LBN EQ UQBSL 
ath é ASSUME tt -NUR OE EQ UQBSL_START_LBN+4 
Oita 33 Clear counters & init List heads 
- - bree tt Sos: ASSUME uaesi FENCEL EQ UOQBSW_ nud ages eee 
7c «6(O1CC 44 CLRQ 
2 DE Bice é§ mOVAL Voy ethon = a arincetse © CDRP List head 
3 +, (R2)+ 
DE 01D1 45 MOVAL (R2)+, - 
gw HE EE RRR Teeicee te ume costa se stern 
85 +, (R2)+ 
E 01D7 48 OVAL tr )+, 
rs A lle almaenaary Steep a ee 
$3 0 )+, (R2)+ 
DE 10D 51 MOVAL (R ° - 
me = 1E0 26 Ae vOgst SHDW_LOW EQ UQBSQ_ -SHe Pe cael al 
- “ Oleg 37 ASSUME vOgsu NUM_BLK EQ UQBSL_ sHDW eae lone 
= - O1Ee 56 ASSUME uagsa. UNITQ EQ UQBSW _NUM. oOlKe tak thee 
RQ 3 
8s it iF 38 tra (R2)+ 
He 69 : Finished setting up UQB, now Link it into the unit _ a 
; “T ‘ Synch access to 
53 080 D ife 8 aevALe acs nsUSL yap LIST(R8) ,R3 : - Riv t head 
32 $3 3 oF ge 3 Move cca8) R3 Get next entry, backwards 
a $3 OY oie tee Oe P R2,R3- : End of the Line? 
5 3e 8S Gite 3eo Seat + 
1 1FD 68 CMPW ; ee, 
nara ; t $3 BLSSU 1 syste. URTaR3) : —- i still higher than target 
63 0080 Fi OE 08 A 1108: INSQUE UQB$Q_UNITQ(R4),(R3) : Insert | 
88 5g i : Go off to MSCP to ADD a disk unit | 
| 
| 
| 
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IPL_HI: 


MO 
SETIPL 
RET 


- LONG 


2 
D 
MSUSL_ STATE (RB) 
#MSUSK_AC_ADD 
#2 

SP, AP 

a4 (R8) CRB) 
#IPLS_ASTDEL 


IPL$_SCS 
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Up the yt scpune 
Copy Ua 9 pe 
pprods or ncte " ection routines 
Onl | parameters 
Set address of parameter area 
Go to the routine 
Set success 
Drop IPL back 
| 
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vOu~000 DEVI 


a * | 
irc 

ee 
=—co 
| a 
coe 
o~< 
om 
+O 
arc 
ne 
-o 


7 -SBTTL DEVTBL = Table of device specific parameters 
90008000 3 SNREM = <MSCPSM_UF_REPLC> 
00080 30 SREM = <MSCPSM—UF -REPLC!MSCPSM_UF_RMVBL> 
35 ; NOTE: DSA disks must have a first word of -1 to trigger special 
7 3 logic in the unit number routine. 
95 eALIGN WORD 
4 38 
4 97 MSCPSGA_DEVTBL:: 
9008 630 4 a8 DEVTBL: .WwORD 0,0 : 0 
080 001 8 39 -WORD MSCPSK_EMS_RK@MSCPSV_EU_SUBC, $REM =: DT$_RKO 1 
080 Bot C 400 -WORD MSCPSK_EMS_RK@MSCP$V_EU_SUBC, SREM 3 DTS$_RKO § 
$80 008 0250 401 -WORD MSCPSK_EMS_RP@MSCPS$V_EU_SUBC, $REM 3 DTS_RPO4 
080 0008 0234 40¢ -WORD MSCPSK-EMS-RP@MSCP$V-EU-SUBC, $REM  ; DT$-RPOS 4 
080 000 8 40 ~-WORD MSCPSK_EMS_RP@MSCPSV_EU_SUBC, $REM 3 DTS_RPO 5 
434 1 C 404 ~WORD MSCPSK_EMS_RM@MSCPS$V_EU_SUBC,  S$REM 3; DTS_RMO 6 
900 19 40 405 -WORD MSCPSK-EMS"RM@MSCPSV-EU-SUBC, $NREM : DT$~RPO7 7 
80 1 44 406 «WORD MSCPSK-EMS-RM@MSCPSV"EU-SUBC, $NREM =; DT$“RPO7HT 8 
8080 0020 0248 407 -WORD MSCPSK_EMS_RL@MSCPSV_EU_SUBC, S$REM ; DT$_RLO1 9 
8080 00 0 +3 408 -WORD MSCPSK_EMS_RL@MSCPS$V_EU_SUBC, S$REM ; DT$_RLO 10 
8080 90 0250 409 -WORD MSCPSKEMS-RX@MSCPS$V-EU-SUBC, $REM ; DT$“RXO 11 
8080 0028 8 54 410 «WORD MSCPSK_EMS_RX@MSCPSV_EU_SUBC,  S$REM 3 DTS_RX04 1 
464 01 58 411 -WORD MSCPSK_EMS_RM@MSCPSV_EU_SUBC SNREM ; DT$_RM8O 1 
080 0000 25¢ 412 “WORD MSCPSK“EMS~CNSLAMSCPSV EU SUBC, $SREM  : DT$7TU5S8 14 | 
8080 001 0 6041 -WORD MSCPSKTEMS-RM@MSCP$V_EO_SOBC,  $REM : D7 $-RMOS 15 
8080 0028 64 414 -WORD MSCPSK_EMS_RX@MSCPSV_EU_SUBC, $REM 3; DTS_RXO1 16 
9008 09 0268 415 -WORD 0 : DT$-ML11 17 
8080 0010 0 gc 416 -WORD MSCPSK_EMS_RM@MSCPSV_EU_SUBC, $REM  : DT$~RBO2 18 
8000 0010 8 0 417 -WORD MSCPSK_EMS_RM@MSCPS$V_EU_SUBC, SNREM ; DT$_RB80 19 
8000 FFFF 74 «64418 «WORD <1, SNREM ; DT$_RA80O 20 
8000 FFFF 78 419 -WORD 1, SNREM ; DT$_RA81 21 
8080 FFFF 7C 3 =420 ~WORD 1 SREM : DTS PAGO 2 
8080 9300 80 421 -WORD MSCPSK_EMD_AZT@MSCPSV_EU_CTYPE, SREM : DTS$7RC2 3 
000 0300 84 4 2 -WORD MSCPSK_EMD_AZT@MSCPSV_EU CTYPE, SNREM ; DT$_RCF25 4 
8000 88 4 -WORD MSCPSKTEMD-RDRX@MSCPSV_EO_CTYPE,SNREM : DT$"RD51 $5 
8080 8C 424 -WORD MSCPSK_EMD_RDRX@MSCPSV_EU_CTYPE,SREM 3 DT$_RX5O 6 
8000 90 425 -WORD MSCPSKTEMD-RDRX@MSCPSV-EU-CTYPE.SNREM =: DIS“RDD¢ 27 
8000 040 9% 4 é -WORD MSCPSKTEMD-RDRX@MSCPSV-EU-CTYPE.SNREM : DT$~RD5 28 
8080 0400 0298 4 -WORD MSCPSKIEMDRDRX@MSCPSV-EU-CTYPE.S$REM  ; DTS"RD26 9 
8000 FFFF 9C 86 428 «WORD = SNREM ; DT$_RA82 0 
8080 0300 AO 429 -WORD MSCPSK_EMD_AZT@MSCPSV_EU_CTYPE, SREM  ; DTS$7RC26 1 
8000 0300 a 9 -WORD MSCPSKIEMDIAZTAMSCPSV-EU-CTYPE. $NREM ; DTS“RCF26 32 
A 4 : > Patch space for future drives 
00 A 434 WORD 0 ; OT$_ 3 
00: 0 AC 435 - WORD 0 ; OT$_ 4 
00 0 BO 4 § ~ WORD “8 ; OT$_ 5 
9464 ; B46 4 - WORD e ; OT$_ 
000 00 Be $38 .WORD 0 
BC 440 END 
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H 12 
ADDUNIT - MSCP Library Routine for SET/SERVED 
Psect synopsis 


tre mowamromaaanace 


! Psect synopsis ! 


geecesce es eceasenecee 


PSECT name Allocation PSECT No. Attributes 

- «ABS . 00000000 8.) 0 ¢ 9.3 NOPIC USR CON ABS ~- LCL NOSHR NOEXE NO 

SABSS 44 4cc ¢ 196 . 1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE 

MSCPSCODE 00002BC 0.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR- EXE 
femme ene ee ec ens ene ere een a > 
H Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 

Initialization 17 00:00:00. 0:00:01.9 

Command processing F 83: 8:00:59 8: 0: 1°98 

Pass 4 0: 9212-99 i ERT AT 

Symbol table sort 0 Ba: 803-1 0:00:07.54 

Pass 2 80 B bn! " 80:60:05 783 

Symbol table output 21 00: nF 0:00:01. 

Psect synopsis output b's So 4S 00:00:00.0 

Cross-reference output Stes ee Ba By eh e 

Assembler run totals 64 00:00:26.54 0:01:40.07 


The _ working set Limit was 1500 pages. . 
106741 bytes (209 pages) of virtual memory were used to buffer the intermediate code. 
There were 110 pages of symbol table space allocated to hold non-local and 26 local symbols. 
440 source Lines were read in Pass 1, producing 17 object records in Pass 2. 
pages of virtual memory were used to define 22 macros. 


pew nme wceawe rcs e mee seen ee cee + 


! Macro Library statistics : 


$e emer ower en ese ees So eee nm me 


Macros defined 


Macro Library name 


_$255$DUA28: SYS .0BJ3118.MLB:1 : 
“$255$DUA28: CMSCP.OBJ JMSCPDEF .MLB; 1 

$255$DUA28: CSYSLIBJSTARLET.MLB;2 5 
TOTALS (all libraries) 19 


2233 GETS were required to define 19 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:ADDUNIT/OBJ=0BJ$:ADDUNIT MSRC$:ADDUNI T/UPDATE=(ENH$: ADDUNIT) +LIB$:MSCPDEF/LIB+EXECMLS/LIB 


"Sr$Ep=198« 08:07:54 EASCPrSRCSADDUNIT MAR 1 


RD NOWRT NOVEC BYTE 
RD WRT NOVEC BYTE 
RD NOWRT NOVEC LONG 
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